﻿Imports Tohto.Web.BLL
Imports Tohto.Base.Entity
Imports Tohto.Web

Public Class RP0040

    ''' <summary>
    ''' A 見積書　退室精算以外
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030201(ByVal strI_VC_LOGINID As String, _
                            ByVal strI_VC_KOJI_NO As String, _
                            ByVal strI_VC_MITUMORI_NO As String, _
                            ByVal strI_VC_KOJI_KB As String, _
                            ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                            ByRef errInfo As PLSQLErrorInfo) As Reports.R030201

        Dim rp0040 As New Reports.R030201

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(1), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

    ''' <summary>
    ''' C 完了報告書　退室精算以外
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030501(ByVal strI_VC_LOGINID As String, _
                              ByVal strI_VC_KOJI_NO As String, _
                              ByVal strI_VC_MITUMORI_NO As String, _
                              ByVal strI_VC_KOJI_KB As String, _
                              ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                              ByRef errInfo As PLSQLErrorInfo) As Reports.R030501

        Dim rp0040 As New Reports.R030501

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(2), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

    ''' <summary>
    ''' E 見積書　退室精算オーナー用
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030301(ByVal strI_VC_LOGINID As String, _
                              ByVal strI_VC_KOJI_NO As String, _
                              ByVal strI_VC_MITUMORI_NO As String, _
                              ByVal strI_VC_KOJI_KB As String, _
                              ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                              ByRef errInfo As PLSQLErrorInfo) As Reports.R030301

        Dim rp0040 As New Reports.R030301

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(1), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

    ''' <summary>
    ''' F 完了報告書　退室精算オーナー向け
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030601(ByVal strI_VC_LOGINID As String, _
                             ByVal strI_VC_KOJI_NO As String, _
                             ByVal strI_VC_MITUMORI_NO As String, _
                             ByVal strI_VC_KOJI_KB As String, _
                             ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                             ByRef errInfo As PLSQLErrorInfo) As Reports.R030601

        Dim rp0040 As New Reports.R030601

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(2), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

    ''' <summary>
    ''' B 見積書　退室精算入居者用
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030401(ByVal strI_VC_LOGINID As String, _
                             ByVal strI_VC_KOJI_NO As String, _
                             ByVal strI_VC_MITUMORI_NO As String, _
                             ByVal strI_VC_KOJI_KB As String, _
                             ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                             ByRef errInfo As PLSQLErrorInfo) As Reports.R030401

        Dim rp0040 As New Reports.R030401

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(1), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

    ''' <summary>
    ''' D 完了報告書　退室精算入居者用
    ''' </summary>
    ''' <param name="strI_VC_LOGINID"></param>
    ''' <param name="strI_VC_KOJI_NO"></param>
    ''' <param name="strI_VC_MITUMORI_NO"></param>
    ''' <param name="strI_VC_KOJI_KB"></param>
    ''' <param name="strI_VC_SEIKYUSAKI_SHUBETU"></param>
    ''' <param name="errInfo"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function PrintR030701(ByVal strI_VC_LOGINID As String, _
                          ByVal strI_VC_KOJI_NO As String, _
                          ByVal strI_VC_MITUMORI_NO As String, _
                          ByVal strI_VC_KOJI_KB As String, _
                          ByVal strI_VC_SEIKYUSAKI_SHUBETU As String, _
                          ByRef errInfo As PLSQLErrorInfo) As Reports.R030701

        Dim rp0040 As New Reports.R030701

        Dim RP0040B1 As New RP0040B01

        Dim retDs As DataSet = RP0040B1.Fecth_List(strI_VC_LOGINID, _
                               strI_VC_KOJI_NO, _
                               strI_VC_MITUMORI_NO, _
                               strI_VC_KOJI_KB, _
                               strI_VC_SEIKYUSAKI_SHUBETU, _
                               CStr(2), _
                               errInfo)

        If retDs.Tables("O_CU_MITUMORI_HOKOKU").Rows.Count = 0 Then
            Return Nothing
        Else
            rp0040.DataSource = retDs.Tables("O_CU_MITUMORI_HOKOKU")

            Return rp0040
        End If

    End Function

End Class